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'¢ 
i This file, PSECTS.REQ, defines the macros for declaring program 
i sections in BLISS. 


i 
PITITILITILILILL LLL LLL 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


:@ rus fo Serke 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND corree 
; Y IN ACCORDANCE WITH THE TERMS OF raten int AND WITH THE 
!@ INCLUSION OF OTHE ABOVE COPYRIGHT NOTICE. THIS SOF TWA RE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- se eokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Revision History: 
Note: this first section of the revision history refers to RTLPSECT. 


1-2. = Data PIC, NOSHR. TNH 19-Dec-77 

3 = Make OWN be NOSHARE. TNH 6-Jan-77. 
-5 = Make OWN be PIC. TNH 27-June 

= Change name to RTLPSECT.REQ. “BS 14-NOV-78 
007 - Add cop a ht notice. JBS 16-Nov-78 
8 - Change BSE T names se Ft rt with "_", to conform to new RTL 

stonsord. JBS 21- 
1-009 - Renove the PR aT as ee A for the new BLISS compiler. 
JBS 02-0CT-197 


End of revision history for RTLPSECT, beginning of revision history 
for PSECTS. 


1-010 - Created PSECTS from RTLPSECT. JBS ey + | lta 
1-011 = Update copyright notice. JBS 21-Jun-19 


ed ee 


Declare PSECTS for all EDT modules. 


DPPPAAAPIA 
YSUTUN IS SRNOGR Nw OS OU Ru 


necro to declare PSECTs for a facility, given the foci tity prefix. 
The declarations are very dependent on the Linker algorithm for 
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ep-1984 VAX-11 Bliss-32 V4.0-7 Page 2 
earn S5:014) VASSILABUESCE MEGOeTee oe eas PAE a8 
sorting psec is. Currently that siger sche ¢) divides yg $3 F into four 
groups dep ogre ng on WRITE vs NOWRITE nee ys NOEXECUTE. 
herefore in order to get compact programs, PLIT is co Sg EXECUTABLE 
to get it close to COD 
Example of use: 
PSECT DECLARATIONS: 
DECLARE_PSECTS (FOR); ! Declare PSECTs for FORS facility 
Note: since the Tha nodule manual does not yet spec tly unere PSECT 


declarations ge jn — are uf Bo goon EQUATED SYMBOLS 
and OWN STORAGE (which is after IN 


CLUDE files). 
CRO 
“ DECLARE_PSECTS (FAC) = 
fn PSECT 
“ CODE = ZNAME ('_* +» EAC, $f7DE) (READ, NOWRITE, EXECUTE, SHARE. pic. ADDRESSING_MODE (WORD_RELATIVE)), 
” PLIT = ZNAME ('", FAC, $. DE) (READ, NOWRITE. EXECUTE, SHARE, PIC, ADDRESSING MODE (WORD-RELATIVE)) 
" OWN = ZNAME ('~", FAC, SDATA) (READ, WRITE. NOEXECUTE, NOSHARE. PIC, ADDRESSING_MODE (LONG_RELATIVES), 


GLOBAL = ZNAME (°_*, FAC, SDATA) (READ, WRITE, NOEXECUTE, NOSHARE, PIC, ADDRESSING_MODE (LONG_RELATIVE)) 


'¢ 

i Define macro for Sor Loring PIC (position independent) dispatch tables 
i as OWN storage (would be better if BIND tabie = PLIT (. however, 

i BLISS doesn't allow table to be Ag tae oo inside PLIT “detinition, 

! so use OWN storage instead). The OWN s e is temporarily defined 

i to be same PSECT as code, then ae Speke § should be called again 

‘ to restore OWN to _facSDATA PSECT 


CRO 
DISPATCH_PSECTS (FAC) = 


4 

" PSECT 

i CODE = XNAME ('_* EAC, SCODE) (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING_MODE (WORD_RELATIVE)), 

4 PLIT = ZNAME ('"", FAC, $CODE) (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING-MODE (WORD-RELATIVE)), 

# OWN = ZNAME (‘~*~ FAC. SCODE) (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING MODE (WORD “RELATIVE)) 
GLOBAL = ZNAME T'’*, FAC, SCODE) (READ, NOWRITE, EXECUTE, SHARE. Bice ADDRESSING_MODE (WORD_RELATIVES) % 
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; End of file PSECTS.REQ 


; COMMAND QUALIFIERS 
BLISS/LIBRARY=EDTSRC :PSECTS/LIST=LIS$:/SOURCE=REQUIRE SRC$:PSECTS 
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